home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 1 / 001.d81 / slot machine (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  190 lines
  1. 1 rem slot machine
  2. 2 x=rnd(-ti)
  3. 3 print "[147][144]":poke53281,6:poke53280,0
  4. 5 dim a(20)
  5. 6 gosub 5000 rem init disp
  6. 10 t=0
  7. 20 print "":for w=1 to 15:print:next
  8. 22 print"<space> to depsosit coin                <return> to end"
  9. 23 poke198,0:wait198,1:getz$:ifz$=chr$(13)then63000
  10. 24 print"[157][157][157][157][157][157][157][157][157][157][157][157]            "
  11. 25 print "":for w=1 to 15:print:next
  12. 26 print "                              ";
  13. 27 print "                              "
  14. 28 print "":for w=1 to 16:print:next
  15. 29 poke v+21,0
  16. 30 restore
  17. 40 data 4,1,2,6,5,2,1,3,5,1,3,4,2,1,1,3,5,3,6,5
  18. 50 data 3,2,5,6,3,2,5,3,4,2,5,4,3,2,5,3,6,2,4,5
  19. 60 data 6,1,4,3,5,4,3,6,3,4,3,1,5,3,4,1,6,4,3,5
  20. 80 gosub 2000:x=m:w=m
  21. 90 gosub 2000:y=m
  22. 100 gosub 2000:z=m
  23. 120 gosub 2500:rem disp 1st
  24. 125 for rj=1 to 500:next rj
  25. 130 gosub 2600:rem disp 2nd
  26. 135 for rj=1 to 500:next rj
  27. 140 gosub 2700:rem disp 3rd
  28. 150 on x goto 1000,200,300,400,500,600
  29. 200 on y goto 280,220,280,280,280,280
  30. 220 on z  goto 240,260,240,240,240,240
  31. 240 p=5:goto 700
  32. 260 p=10:goto 700
  33. 280 p=2: goto 700
  34. 300 on y goto 1000,1000,320,1000,1000,1000
  35. 320 on z goto 1000,1000,260,1000,1000,260
  36. 400 on y goto 1000,1000,1000,420,1000,1000
  37. 420 on z goto 1000,1000,1000,440,1000,440
  38. 440 p=14:goto 700
  39. 500 on y goto 1000,1000,1000,1000,520,1000
  40. 520 on z goto 1000,1000,1000,1000,540,540
  41. 540 p=18:goto 700
  42. 600 on y goto 1000,1000,1000,1000,1000,620
  43. 620 on z goto 1000,1000,1000,1000,1000,640
  44. 640 p=100:goto 700
  45. 700 print:print: print"you win***     ";p
  46. 720 t=t+p:goto 1100
  47. 1000 print:print:   print"sorry, you lose     "
  48. 1100 t=t-1:print:print:print"your score is ";"    [157][157][157][157]";t;"     ":goto 20
  49. 1400 rem name subroutine
  50. 1990 rem spin subroutine
  51. 2000 for i=1 to 20
  52. 2010 read a(i):next i
  53. 2100 n=int(rnd(1)*20)+1:m=a(n)
  54. 2200 return
  55. 2450 rem display subroutine
  56. 2500 poke 2040,x+12:rem set 0 pointer
  57. 2505 on x goto 2570,2520,2580,2540,2570,2510:rem color
  58. 2510 poke v+39,0:goto 2590
  59. 2520 poke v+39,2:goto 2590
  60. 2530 poke v+39,3:goto 2590
  61. 2540 poke v+39,4:goto 2590
  62. 2570 poke v+39,7:goto 2590
  63. 2580 poke v+39,8:goto 2590
  64. 2590 poke v+21,1:return
  65. 2600 poke 2041,y+12:rem set 1 pointer
  66. 2605 on y goto 2670,2620,2680,2640,2670,2610:rem color
  67. 2610 poke v+40,0:goto 2690
  68. 2620 poke v+40,2:goto 2690
  69. 2630 poke v+40,3:goto 2690
  70. 2640 poke v+40,4:goto 2690
  71. 2670 poke v+40,7:goto 2690
  72. 2680 poke v+40,8:goto 2690
  73. 2690 poke v+21,3:return
  74. 2700 poke 2042,z+12:rem set 2 pointer
  75. 2705 on z goto 2770,2720,2780,2740,2770,2710:rem color
  76. 2710 poke v+41,0:goto 2790
  77. 2720 poke v+41,2:goto 2790
  78. 2730 poke v+41,3:goto 2790
  79. 2740 poke v+41,4:goto 2790
  80. 2770 poke v+41,7:goto 2790
  81. 2780 poke v+41,8:goto 2790
  82. 2790 poke v+21,7:return
  83. 2800 return
  84. 3000 rem lemon
  85. 3001 data 0,0,0,0,0,0,0,0,0
  86. 3002 data 0,0,0,0,0,0,0,0,0
  87. 3003 data 0,60,0,0,255,0,3,255,192
  88. 3004 data 7,255,224,15,255,240,7,255,224
  89. 3005 data 3,255,192,0,255,0,0,60,0
  90. 3006 data 0,0,0,0,0,0,0,0,0
  91. 3007 data 0,0,0,0,0,0,0,0,0
  92. 3010 rem cherry
  93. 3011 data 0,0,0,0,0,0,0,0,0
  94. 3012 data 0,3,0,0,7,128,0,15,192
  95. 3013 data 0,31,224,1,143,192,3,199,128
  96. 3014 data 7,227,0,15,255,252,7,227,0
  97. 3015 data 3,199,128,1,143,192,0,31,224
  98. 3016 data 0,15,192,0,7,128,0,3,0
  99. 3017 data 0,0,0,0,0,0,0,0,0
  100. 3020 rem orange
  101. 3021 data 0,0,0,0,0,0,0,0,0
  102. 3022 data 0,126,0,0,255,0,1,255,128
  103. 3023 data 3,255,192,3,255,192,7,255,224
  104. 3024 data 7,255,224,7,255,224,7,255,224
  105. 3025 data 3,255,192,3,255,192,1,255,128
  106. 3026 data 0,255,0,0,126,0,0,0,0
  107. 3027 data 0,0,0,0,0,0,0,0,0
  108. 3030 rem plum
  109. 3031 data 0,0,0,0,0,0,0,0,0
  110. 3032 data 0,00,0,0,60,0,0,126,0
  111. 3033 data 0,126,0,0,255,0,0,255,0
  112. 3034 data 1,255,128,1,255,128,1,255,128
  113. 3035 data 0,255,0,0,255,0,0,126,0
  114. 3036 data 0,126,0,0,60,0,0,00,0
  115. 3037 data 0,0,0,0,0,0,0,0,0
  116. 3040 rem bell
  117. 3041 data 0,0,0,0,0,0,0,0,0
  118. 3042 data 0,0,0,0,8,0,0,62,0
  119. 3043 data 0,127,0,0,127,0,0,127,0
  120. 3044 data 0,127,0,0,255,128,0,255,128
  121. 3045 data 1,255,192,1,255,192,3,255,224
  122. 3046 data 7,255,240,15,255,248,15,255,248
  123. 3047 data 15,255,248,0,0,0,0,0,0
  124. 3050 rem bar
  125. 3051 data 0,0,0,0,0,0,0,0,0
  126. 3052 data 0,0,0,0,0,0,0,0,0
  127. 3053 data 31,255,248,24,66,24,27,90,216
  128. 3054 data 27,90,216,24,66,24,27,90,216
  129. 3055 data 27,90,232,24,90,232,31,255,248
  130. 3056 data 0,0,0,0,0,0,0,0,0
  131. 3057 data 0,0,0,0,0,0,0,0,0
  132. 5000 gosub 6000
  133. 5003 for m=1 to 60:read d:next
  134. 5005 v=53248
  135. 5010 for m=0 to 62:read d:poke 832+m,d:next m:rem lemon
  136. 5020 for m=o to 62:read d:poke 896+m,d:next m:rem cherry
  137. 5030 for m=0 to 62:read d:poke 960+m,d:next m:rem orange
  138. 5040 for m=0 to 62:read d:poke 1024+m,d:next m:rem plum
  139. 5050 for m=0 to 62:read d:poke 1088+m,d:next m:rem bell
  140. 5060 for m=0 to 62:read d:poke 1152+m,d:next m:rem bar
  141. 5070 poke v+23,7:poke v+29,7:rem expand
  142. 5080 poke v,100:poke v+1, 100:rem 1st posit
  143. 5090 poke v+2,150:poke v+3, 100:rem 2nd pos
  144. 5100 poke v+4,200:poke v+5, 100:rem 3rd pos
  145. 5110 return
  146. 6000 e=1024:f=55296
  147. 6002 for g=207 to 447 step 40
  148. 6004 for h=0 to 23
  149. 6006 poke e+g+h,160:poke f+g+h,1
  150. 6008 next h
  151. 6010 next g
  152. 6012 return
  153. 6064 for h=0 to 23
  154. 6066 poke e+g+h,102:poke f+g+h,1
  155. 10000 v=53248
  156. 10001 print"[147]"
  157. 10005 input "color";c
  158. 10006 poke v+41,c
  159. 10010 poke v+23,4:poke v+29,4
  160. 10011 poke v+21,4
  161. 10012 poke 2042,13
  162. 10030 for x=0 to 200
  163. 10040 poke v+4,x
  164. 10041 poke v+5,x
  165. 10060 next x
  166. 10070 goto10030
  167. 10500 restore
  168. 10510 for i=1 to 60:read d:next i
  169. 10520 stop
  170. 10600 for i=0 to 62:read q:poke 832+i,q
  171. 10610 next i
  172. 10620 stop
  173. 10630 for i=0 to 62:read q:poke 832+i,q
  174. 10640 next i
  175. 10650 stop
  176. 10660 for i=0 to 62:read q:poke 832+i,q
  177. 10670 next i
  178. 10680 stop
  179. 10690 for i=0 to 62:read q:poke 832+i,q
  180. 10700 next i
  181. 10710 stop
  182. 10720 for i=0 to 62:read q:poke 832+i,q
  183. 10730 next i
  184. 10740 stop
  185. 10750 for i=0 to 62:read q:poke 832+i,q
  186. 10760 next i
  187. 10770 stop
  188. 63000 pokev+21,0:print"[147]load"chr$(34)"payload"chr$(34)",8":print"run"
  189. 63002 poke631,13:poke632,13:poke198,2
  190.